   setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
while 0=0
   if int(rnd(1000))<50 then:mouseshow:end if
   if int(rnd(1000))>950 then:mousehide:end if
   waitvbl
      if key(27)<>0 then:end:end if
 wend

